home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon_Interfaces / Interfaces / MathTrans.mod < prev    next >
Text File  |  1994-03-05  |  2KB  |  57 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: MathTrans.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE MathTrans;
  11.  
  12. IMPORT
  13.   e * := Exec,
  14.   I   := Intuition;
  15.  
  16. CONST
  17.   MathTransName * = "mathtrans.library";
  18.  
  19. VAR
  20.   base * : e.LibraryPtr;
  21.  
  22. PROCEDURE Atan  * {base,- 30}(x{0}       : REAL): REAL;
  23. PROCEDURE Sin   * {base,- 36}(x{0}       : REAL): REAL;
  24. PROCEDURE Cos   * {base,- 42}(x{0}       : REAL): REAL;
  25. PROCEDURE Tan   * {base,- 48}(x{0}       : REAL): REAL;
  26. PROCEDURE Sincos* {base,- 54}(VAR cos{1} : REAL;
  27.                               x{0}       : REAL): REAL;
  28. PROCEDURE Sinh  * {base,- 60}(x{0}       : REAL): REAL;
  29. PROCEDURE Cosh  * {base,- 66}(x{0}       : REAL): REAL;
  30. PROCEDURE Tanh  * {base,- 72}(x{0}       : REAL): REAL;
  31. PROCEDURE Exp   * {base,- 78}(x{0}       : REAL): REAL;
  32. PROCEDURE Log   * {base,- 84}(x{0}       : REAL): REAL;
  33. PROCEDURE Pow   * {base,- 90}(e{1}       : REAL;
  34.                               b{0}       : REAL): REAL;
  35. PROCEDURE Sqrt  * {base,- 96}(x{0}       : REAL): REAL;
  36. PROCEDURE Tieee * {base,-102}(x{0}       : REAL): LONGINT;
  37. PROCEDURE Fieee * {base,-108}(x{0}       : LONGINT): REAL;
  38. PROCEDURE Asin  * {base,-114}(x{0}       : REAL): REAL;
  39. PROCEDURE Acos  * {base,-120}(x{0}       : REAL): REAL;
  40. PROCEDURE Log10 * {base,-126}(x{0}       : REAL): REAL;
  41.  
  42.  
  43. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  44.  
  45. BEGIN
  46.   base := e.OpenLibrary(MathTransName,33);
  47.   IF base=NIL THEN
  48.     IF I.DisplayAlert(0,"\x00\x64\x14missing mathtrans.library\o\o",50) THEN END;
  49.     HALT(0)
  50.   END;
  51.  
  52. CLOSE
  53.   IF base#NIL THEN e.CloseLibrary(base) END;
  54.  
  55. END MathTrans.
  56.  
  57.